/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / Frontier SDK 2.1.sit / Frontier SDK 2.1 / Toolkits / IAC Tools / iacboolean.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 69 61 63 62 6f 6f | 6c 65 61 6e 2e 63 00 00 |..iacboo|lean.c..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 06 99 00 | 00 01 b4 a8 3b fc 01 a8 |........|....;...|
|00000060| 3b fc 01 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 28 6c 00 00 |........|....(l..|
|00000080| 20 20 0d 2f 2a a9 20 43 | 6f 70 79 72 69 67 68 74 |  ./*. C|opyright|
|00000090| 20 31 39 38 38 2d 31 39 | 39 33 20 55 73 65 72 4c | 1988-19|93 UserL|
|000000a0| 61 6e 64 20 53 6f 66 74 | 77 61 72 65 2c 20 49 6e |and Soft|ware, In|
|000000b0| 63 2e 20 20 41 6c 6c 20 | 52 69 67 68 74 73 20 52 |c.  All |Rights R|
|000000c0| 65 73 65 72 76 65 64 2e | 2a 2f 0d 0d 23 69 6e 63 |eserved.|*/..#inc|
|000000d0| 6c 75 64 65 20 22 69 61 | 63 69 6e 74 65 72 6e 61 |lude "ia|cinterna|
|000000e0| 6c 2e 68 22 0d 0d 0d 0d | 42 6f 6f 6c 65 61 6e 20 |l.h"....|Boolean |
|000000f0| 49 41 43 70 75 73 68 62 | 6f 6f 6c 65 61 6e 70 61 |IACpushb|ooleanpa|
|00000100| 72 61 6d 20 28 42 6f 6f | 6c 65 61 6e 20 76 61 6c |ram (Boo|lean val|
|00000110| 2c 20 4f 53 54 79 70 65 | 20 6b 65 79 77 6f 72 64 |, OSType| keyword|
|00000120| 29 20 7b 0d 0d 09 72 65 | 74 75 72 6e 20 28 49 41 |) {...re|turn (IA|
|00000130| 43 70 75 73 68 62 6f 6f | 6c 65 61 6e 69 74 65 6d |Cpushboo|leanitem|
|00000140| 20 28 49 41 43 67 6c 6f | 62 61 6c 73 2e 65 76 65 | (IACglo|bals.eve|
|00000150| 6e 74 2c 20 76 61 6c 2c | 20 6b 65 79 77 6f 72 64 |nt, val,| keyword|
|00000160| 29 29 3b 0d 09 7d 20 2f | 2a 49 41 43 70 75 73 68 |));..} /|*IACpush|
|00000170| 62 6f 6f 6c 65 61 6e 70 | 61 72 61 6d 2a 2f 0d 0d |booleanp|aram*/..|
|00000180| 0d 42 6f 6f 6c 65 61 6e | 20 49 41 43 72 65 74 75 |.Boolean| IACretu|
|00000190| 72 6e 62 6f 6f 6c 65 61 | 6e 20 28 42 6f 6f 6c 65 |rnboolea|n (Boole|
|000001a0| 61 6e 20 66 6c 29 20 7b | 0d 0d 09 72 65 74 75 72 |an fl) {|...retur|
|000001b0| 6e 20 28 49 41 43 70 75 | 73 68 62 6f 6f 6c 65 61 |n (IACpu|shboolea|
|000001c0| 6e 69 74 65 6d 20 28 49 | 41 43 67 6c 6f 62 61 6c |nitem (I|ACglobal|
|000001d0| 73 2e 72 65 70 6c 79 2c | 20 66 6c 2c 20 6b 65 79 |s.reply,| fl, key|
|000001e0| 44 69 72 65 63 74 4f 62 | 6a 65 63 74 29 29 3b 0d |DirectOb|ject));.|
|000001f0| 09 7d 20 2f 2a 49 41 43 | 72 65 74 75 72 6e 62 6f |.} /*IAC|returnbo|
|00000200| 6f 6c 65 61 6e 2a 2f 0d | 0d 0d 42 6f 6f 6c 65 61 |olean*/.|..Boolea|
|00000210| 6e 20 49 41 43 67 65 74 | 62 6f 6f 6c 65 61 6e 70 |n IACget|booleanp|
|00000220| 61 72 61 6d 20 28 4f 53 | 54 79 70 65 20 6b 65 79 |aram (OS|Type key|
|00000230| 77 6f 72 64 2c 20 42 6f | 6f 6c 65 61 6e 20 2a 76 |word, Bo|olean *v|
|00000240| 61 6c 29 20 7b 0d 0d 09 | 69 66 20 28 21 49 41 43 |al) {...|if (!IAC|
|00000250| 67 65 74 62 6f 6f 6c 65 | 61 6e 69 74 65 6d 20 28 |getboole|anitem (|
|00000260| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 65 76 65 6e 74 |IACgloba|ls.event|
|00000270| 2c 20 6b 65 79 77 6f 72 | 64 2c 20 76 61 6c 29 29 |, keywor|d, val))|
|00000280| 20 7b 0d 09 09 0d 09 09 | 49 41 43 70 61 72 61 6d | {......|IACparam|
|00000290| 65 72 72 6f 72 20 28 49 | 41 43 67 6c 6f 62 61 6c |error (I|ACglobal|
|000002a0| 73 2e 65 72 72 6f 72 63 | 6f 64 65 2c 20 22 5c 70 |s.errorc|ode, "\p|
|000002b0| 62 6f 6f 6c 65 61 6e 22 | 2c 20 6b 65 79 77 6f 72 |boolean"|, keywor|
|000002c0| 64 29 3b 0d 09 09 0d 09 | 09 72 65 74 75 72 6e 20 |d);.....|.return |
|000002d0| 28 66 61 6c 73 65 29 3b | 0d 09 09 7d 0d 09 0d 09 |(false);|...}....|
|000002e0| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 6e 65 78 74 70 |IACgloba|ls.nextp|
|000002f0| 61 72 61 6d 6f 70 74 69 | 6f 6e 61 6c 20 3d 20 66 |aramopti|onal = f|
|00000300| 61 6c 73 65 3b 20 2f 2a | 6d 75 73 74 20 62 65 20 |alse; /*|must be |
|00000310| 72 65 73 65 74 20 66 6f | 72 20 65 61 63 68 20 70 |reset fo|r each p|
|00000320| 61 72 61 6d 2a 2f 0d 09 | 0d 09 72 65 74 75 72 6e |aram*/..|..return|
|00000330| 20 28 74 72 75 65 29 3b | 0d 09 7d 20 2f 2a 49 41 | (true);|..} /*IA|
|00000340| 43 67 65 74 62 6f 6f 6c | 65 61 6e 70 61 72 61 6d |Cgetbool|eanparam|
|00000350| 2a 2f 0d 09 0d 09 0d 42 | 6f 6f 6c 65 61 6e 20 49 |*/.....B|oolean I|
|00000360| 41 43 67 65 74 62 6f 6f | 6c 65 61 6e 69 74 65 6d |ACgetboo|leanitem|
|00000370| 20 28 41 45 44 65 73 63 | 4c 69 73 74 20 2a 6c 69 | (AEDesc|List *li|
|00000380| 73 74 2c 20 6c 6f 6e 67 | 20 6e 2c 20 42 6f 6f 6c |st, long| n, Bool|
|00000390| 65 61 6e 20 2a 76 61 6c | 29 20 7b 0d 09 0d 09 72 |ean *val|) {....r|
|000003a0| 65 67 69 73 74 65 72 20 | 4f 53 45 72 72 20 65 63 |egister |OSErr ec|
|000003b0| 3b 0d 09 44 65 73 63 54 | 79 70 65 20 6b 65 79 3b |;..DescT|ype key;|
|000003c0| 0d 09 44 65 73 63 54 79 | 70 65 20 74 79 70 65 43 |..DescTy|pe typeC|
|000003d0| 6f 64 65 3b 0d 09 53 69 | 7a 65 20 61 63 74 75 61 |ode;..Si|ze actua|
|000003e0| 6c 53 69 7a 65 3b 0d 09 | 0d 09 69 66 20 28 28 2a |lSize;..|..if ((*|
|000003f0| 6c 69 73 74 29 2e 64 65 | 73 63 72 69 70 74 6f 72 |list).de|scriptor|
|00000400| 54 79 70 65 20 21 3d 20 | 74 79 70 65 41 45 4c 69 |Type != |typeAELi|
|00000410| 73 74 29 20 7b 0d 0d 09 | 09 65 63 20 3d 20 41 45 |st) {...|.ec = AE|
|00000420| 47 65 74 4b 65 79 50 74 | 72 20 28 6c 69 73 74 2c |GetKeyPt|r (list,|
|00000430| 20 6e 2c 20 74 79 70 65 | 42 6f 6f 6c 65 61 6e 2c | n, type|Boolean,|
|00000440| 20 26 74 79 70 65 43 6f | 64 65 2c 20 28 50 74 72 | &typeCo|de, (Ptr|
|00000450| 29 20 76 61 6c 2c 20 73 | 69 7a 65 6f 66 20 28 2a |) val, s|izeof (*|
|00000460| 76 61 6c 29 2c 20 26 61 | 63 74 75 61 6c 53 69 7a |val), &a|ctualSiz|
|00000470| 65 29 3b 0d 0d 09 09 69 | 66 20 28 65 63 20 21 3d |e);....i|f (ec !=|
|00000480| 20 65 72 72 41 45 44 65 | 73 63 4e 6f 74 46 6f 75 | errAEDe|scNotFou|
|00000490| 6e 64 29 0d 09 09 09 67 | 6f 74 6f 20 64 6f 6e 65 |nd)....g|oto done|
|000004a0| 3b 0d 09 09 7d 0d 0d 09 | 65 63 20 3d 20 41 45 47 |;...}...|ec = AEG|
|000004b0| 65 74 4e 74 68 50 74 72 | 20 28 6c 69 73 74 2c 20 |etNthPtr| (list, |
|000004c0| 6e 2c 20 74 79 70 65 42 | 6f 6f 6c 65 61 6e 2c 20 |n, typeB|oolean, |
|000004d0| 26 6b 65 79 2c 20 26 74 | 79 70 65 43 6f 64 65 2c |&key, &t|ypeCode,|
|000004e0| 20 28 50 74 72 29 20 76 | 61 6c 2c 20 73 69 7a 65 | (Ptr) v|al, size|
|000004f0| 6f 66 20 28 2a 76 61 6c | 29 2c 20 26 61 63 74 75 |of (*val|), &actu|
|00000500| 61 6c 53 69 7a 65 29 3b | 0d 0d 09 64 6f 6e 65 3a |alSize);|...done:|
|00000510| 0d 09 0d 09 49 41 43 67 | 6c 6f 62 61 6c 73 2e 65 |....IACg|lobals.e|
|00000520| 72 72 6f 72 63 6f 64 65 | 20 3d 20 65 63 3b 0d 09 |rrorcode| = ec;..|
|00000530| 0d 09 72 65 74 75 72 6e | 20 28 65 63 20 3d 3d 20 |..return| (ec == |
|00000540| 6e 6f 45 72 72 29 3b 0d | 09 7d 20 2f 2a 49 41 43 |noErr);.|.} /*IAC|
|00000550| 67 65 74 62 6f 6f 6c 65 | 61 6e 69 74 65 6d 2a 2f |getboole|anitem*/|
|00000560| 0d 0d 0d 42 6f 6f 6c 65 | 61 6e 20 49 41 43 70 75 |...Boole|an IACpu|
|00000570| 73 68 62 6f 6f 6c 65 61 | 6e 69 74 65 6d 20 28 41 |shboolea|nitem (A|
|00000580| 45 44 65 73 63 4c 69 73 | 74 20 2a 6c 69 73 74 2c |EDescLis|t *list,|
|00000590| 20 42 6f 6f 6c 65 61 6e | 20 76 61 6c 2c 20 6c 6f | Boolean| val, lo|
|000005a0| 6e 67 20 6e 29 20 7b 0d | 09 0d 09 72 65 67 69 73 |ng n) {.|...regis|
|000005b0| 74 65 72 20 4f 53 45 72 | 72 20 65 63 3b 0d 09 42 |ter OSEr|r ec;..B|
|000005c0| 6f 6f 6c 65 61 6e 09 66 | 6c 3b 0d 09 0d 09 69 66 |oolean.f|l;....if|
|000005d0| 20 28 76 61 6c 29 20 2f | 2a 63 72 65 61 74 65 20 | (val) /|*create |
|000005e0| 61 20 6c 61 6e 67 75 61 | 67 65 2d 69 6e 64 65 70 |a langua|ge-indep|
|000005f0| 65 6e 64 65 6e 74 20 62 | 6f 6f 6c 65 61 6e 2a 2f |endent b|oolean*/|
|00000600| 0d 09 09 76 61 6c 20 3d | 20 31 3b 0d 09 0d 09 69 |...val =| 1;....i|
|00000610| 66 20 28 28 2a 6c 69 73 | 74 29 2e 64 65 73 63 72 |f ((*lis|t).descr|
|00000620| 69 70 74 6f 72 54 79 70 | 65 20 21 3d 20 74 79 70 |iptorTyp|e != typ|
|00000630| 65 41 45 4c 69 73 74 29 | 0d 09 09 65 63 20 3d 20 |eAEList)|...ec = |
|00000640| 41 45 50 75 74 4b 65 79 | 50 74 72 20 28 6c 69 73 |AEPutKey|Ptr (lis|
|00000650| 74 2c 20 6e 2c 20 74 79 | 70 65 42 6f 6f 6c 65 61 |t, n, ty|peBoolea|
|00000660| 6e 2c 20 28 50 74 72 29 | 20 26 76 61 6c 2c 20 73 |n, (Ptr)| &val, s|
|00000670| 69 7a 65 6f 66 20 28 76 | 61 6c 29 29 3b 0d 09 65 |izeof (v|al));..e|
|00000680| 6c 73 65 0d 09 09 65 63 | 20 3d 20 41 45 50 75 74 |lse...ec| = AEPut|
|00000690| 50 74 72 20 28 6c 69 73 | 74 2c 20 6e 2c 20 74 79 |Ptr (lis|t, n, ty|
|000006a0| 70 65 42 6f 6f 6c 65 61 | 6e 2c 20 28 50 74 72 29 |peBoolea|n, (Ptr)|
|000006b0| 20 26 76 61 6c 2c 20 73 | 69 7a 65 6f 66 20 28 76 | &val, s|izeof (v|
|000006c0| 61 6c 29 29 3b 0d 09 0d | 09 49 41 43 67 6c 6f 62 |al));...|.IACglob|
|000006d0| 61 6c 73 2e 65 72 72 6f | 72 63 6f 64 65 20 3d 20 |als.erro|rcode = |
|000006e0| 65 63 3b 0d 09 0d 09 72 | 65 74 75 72 6e 20 28 65 |ec;....r|eturn (e|
|000006f0| 63 20 3d 3d 20 6e 6f 45 | 72 72 29 3b 0d 09 7d 20 |c == noE|rr);..} |
|00000700| 2f 2a 49 41 43 70 75 73 | 68 62 6f 6f 6c 65 61 6e |/*IACpus|hboolean|
|00000710| 69 74 65 6d 2a 2f 0d 0d | 0d 00 00 00 00 00 00 00 |item*/..|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 5a |.......Z|...Z...Z|
|00000790| 53 79 73 74 65 6d 22 2c | 20 2d 31 36 30 39 36 2c |System",| -16096,|
|000007a0| 20 40 73 29 0d 09 09 09 | 75 73 65 72 2e 6e 61 6d | @s)....|user.nam|
|000007b0| 0c 69 61 63 62 6f 6f 6c | 65 61 6e 2e 63 08 02 00 |.iacbool|ean.c...|
|000007c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000007d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a9 81 44 d3 00 00 | 00 00 00 00 01 b4 3d 20 |....D...|......= |
|00000800| 31 20 74 6f 20 73 74 72 | 69 6e 67 2e 63 6f 75 6e |1 to str|ing.coun|
|00000810| 74 57 6f 72 64 73 20 28 | 6e 61 6d 65 29 0d 09 09 |tWords (|name)...|
|00000820| 09 09 09 69 6e 69 74 69 | 61 6c 73 20 3d 20 69 6e |...initi|als = in|
|00000830| 69 74 69 61 6c 73 20 2b | 20 73 74 72 69 6e 67 2e |itials +| string.|
|00000840| 6e 74 68 43 68 61 72 20 | 28 73 74 72 69 6e 67 2e |nthChar |(string.|
|00000850| 6e 74 68 57 6f 72 64 20 | 28 6e 61 6d 65 2c 20 69 |nthWord |(name, i|
|00000860| 29 2c 20 31 29 0d 09 09 | 09 09 72 65 74 75 72 6e |), 1)...|..return|
|00000870| 20 28 69 6e 69 74 69 61 | 6c 73 29 0d 09 09 09 75 | (initia|ls)....u|
|00000880| 00 00 00 0a 00 00 01 19 | ff ff 00 00 00 00 00 00 |........|........|
|00000890| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 00 00 00 00 |.H..Mona|co......|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 06 00 04 | 00 4c 00 10 01 d6 02 40 |........|.L.....@|
|000008c0| 00 4c 00 10 01 d6 02 40 | a8 21 a6 3a 00 00 02 2d |.L.....@|.!.:...-|
|000008d0| 00 00 02 2d 00 00 00 00 | 01 00 00 00 01 00 00 00 |...-....|........|
|000008e0| 01 5a 00 00 00 5a 00 00 | 00 5a 00 c2 04 30 13 d6 |.Z...Z..|.Z...0..|
|000008f0| 00 00 00 1c 00 46 00 01 | 42 4b 50 54 00 00 00 12 |.....F..|BKPT....|
|00000900| 4d 50 53 52 00 00 00 1e | 51 2f ff ff 00 00 00 00 |MPSR....|Q/......|
|00000910| 00 00 00 00 03 ed 00 00 | 00 00 00 0e 00 00 00 00 |........|........|
|00000920| 13 43 72 65 61 74 65 64 | 20 62 79 20 43 4d 61 73 |.Created| by CMas|
|00000930| 74 65 72 aa 00 00 00 00 | 00 00 00 00 00 00 00 00 |ter.....|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+